home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 June / MacHome Magazine Demo Disc June 2001.iso / Stuff / Software / Network / CoMa Mac 5.4.0 / Documentation / Sample Fax Script < prev   
Encoding:
Text File  |  2001-02-09  |  2.6 KB  |  76 lines  |  [TEXT/ToyS]
  1.  
  2. on status_auswerten(stat)
  3.     if (stat < 0) then
  4.         beep 3
  5.         if ((stat) = -2) then
  6.             display dialog "Modem antwortet nicht"
  7.         else if ((stat) = -3) then
  8.             display dialog "nach x Anwahlversuchen immer noch besetzt"
  9.         else if ((stat) = -4) then
  10.             display dialog "kein Carrier"
  11.         else if ((stat) = -5) then
  12.             display dialog "kein Wählton"
  13.         else if ((stat) = -6) then
  14.             display dialog "Tastaturabbruch"
  15.         else if ((stat) = -7) then
  16.             display dialog "Modem hat zu früh aufgelegt"
  17.         else if ((stat) = -8) then
  18.             display dialog "nicht genug RAM"
  19.         else if ((stat) = -9) then
  20.             display dialog "Faxnummer fehlt"
  21.         else if ((stat) = -12) then
  22.             display dialog "Datei nicht gefunden"
  23.         else if ((stat) = -14) then
  24.             display dialog "Port ist nicht verfügbar"
  25.         else if ((stat) = -16) then
  26.             display dialog "Festplatte ist voll"
  27.         else if ((stat) = -18) then
  28.             display dialog "Modem verhängt Wahlsperre"
  29.         else if ((stat) = -19) then
  30.             display dialog "Übertragungsfehler"
  31.         else
  32.             display dialog "Fehler " & stat
  33.         end if
  34.     end if
  35. end status_auswerten
  36.  
  37.  
  38. -- Übergibt einen Text, erstellt daraus mit Header- und Footergafik eine Faxseite, setzt den Namen des Empfängers
  39. -- und die Faxnummer an CoMa und sendet das Fax
  40.  
  41. tell application "CoMa PPC"
  42.     Close Faxwindows -- Schließt alte Faxseiten
  43.     Set Name "Dipl.-Ing. Siggi Hartmann" Line2 "Hartmann-Software"
  44.     Set Faxnumber "030/62709459"
  45.     Set Header 2 -- Headergrafik für Text
  46.     Set Footer 1 -- Footergrafik für Text
  47.     open "Macintosh HD:CoMa:System:Default.txt" as alias -- Bitte anpassen  Datei im TEXT, PICT, CoMa-Fax oder FaxSTF-Format
  48.     Send Fax
  49.     repeat while ((Get Status) > 0) -- auf Ende der Übertragung warten
  50.         delay 2 -- um System nicht zu bremsen
  51.         beep 1 -- kann weg, signalisiert Wartezustand
  52.     end repeat
  53.     set stat to Get Status
  54. end tell
  55. status_auswerten(stat)
  56.  
  57.  
  58. -- Übergibt zwei Seiten im CoMa-Fax-Format, setzt den Namen des Empfängers
  59. -- und die Faxnummer an CoMa und sendet das Fax
  60.  
  61. tell application "CoMa PPC"
  62.     repeat while ((Get Status) > 0) -- Falls CoMa noch beschäftigt ist
  63.     end repeat
  64.     Close Faxwindows -- Schließt alte Faxseiten
  65.     open "Macintosh HD:CoMa:Fax:Outgoing:01FirstMillion" as alias -- Bitte anpassen  Datei im TEXT, PICT, CoMa-Fax oder FaxSTF-Format
  66.     open "Macintosh HD:CoMa:Fax:Outgoing:02FirstMillion" as alias
  67.     Set Name "Dipl.-Ing. Siggi Hartmann" Line2 "Hartmann-Software"
  68.     (Set Faxnumber "030/62709459") Send Fax
  69.     repeat while ((Get Status) > 0) -- auf Ende der Übertragung warten
  70.         delay 2 -- um System nicht zu bremsen
  71.         beep 1 -- kann weg, signalisiert Wartezustand
  72.     end repeat
  73.     set stat to Get Status
  74. end tell
  75. status_auswerten(stat)
  76.